home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / UDP_101N.ZIP / ECHO.FRM < prev    next >
Text File  |  1995-04-04  |  3KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "UDP ECHO Demo"
  4.    ClientHeight    =   5175
  5.    ClientLeft      =   1125
  6.    ClientTop       =   1995
  7.    ClientWidth     =   7845
  8.    ForeColor       =   &H00000080&
  9.    Height          =   5580
  10.    Left            =   1065
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5175
  13.    ScaleWidth      =   7845
  14.    Top             =   1650
  15.    Width           =   7965
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Clear"
  18.       Height          =   375
  19.       Left            =   5880
  20.       TabIndex        =   3
  21.       Top             =   300
  22.       Width           =   1335
  23.    End
  24.    Begin TextBox tAddress 
  25.       Height          =   285
  26.       Left            =   2280
  27.       TabIndex        =   1
  28.       Text            =   "127.0.0.1"
  29.       Top             =   360
  30.       Width           =   2055
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "Test!!"
  34.       Height          =   375
  35.       Left            =   4440
  36.       TabIndex        =   0
  37.       Top             =   300
  38.       Width           =   1335
  39.    End
  40.    Begin UDPPORT UDPPort1 
  41.       InBufferSize    =   2048
  42.       Left            =   3480
  43.       LocalPort       =   0
  44.       OutBufferSize   =   2048
  45.       RemoteHost      =   "255.255.255.255"
  46.       RemotePort      =   0
  47.       Top             =   720
  48.    End
  49.    Begin Label Label2 
  50.       Caption         =   "For best results, run an instance of this demo in *different* machines (simultaneously)."
  51.       ForeColor       =   &H000000FF&
  52.       Height          =   255
  53.       Left            =   120
  54.       TabIndex        =   4
  55.       Top             =   60
  56.       Width           =   7695
  57.    End
  58.    Begin Label Label1 
  59.       Caption         =   "Remote Host Address:"
  60.       Height          =   255
  61.       Left            =   120
  62.       TabIndex        =   2
  63.       Top             =   360
  64.       Width           =   1935
  65.    End
  66. End
  67.  
  68. Sub Command1_Click ()
  69.  
  70. UDPPort1.Active = False
  71. UDPPort1.LocalPort = 7   'so that it listens too
  72.                          'careful!! - if you reply from this port,
  73.                          'infinite loops might result
  74.  
  75. UDPPort1.Active = True
  76.  
  77. UDPPort1.RemoteHost = tAddress.Text
  78. UDPPort1.RemotePort = 7
  79.  
  80. TestData$ = "test!!!"
  81.  
  82. UDPPort1.DataToSend = TestData$
  83.  
  84. Me.ForeColor = &HFF0000
  85. Print "To: ", UDPPort1.RemoteHost & ":" & UDPPort1.RemotePort & " :: " & TestData$
  86.  
  87. End Sub
  88.  
  89. Sub Command2_Click ()
  90.  
  91. Cls: Print : Print : Print : Print
  92.  
  93. End Sub
  94.  
  95. Sub Form_Load ()
  96.  
  97. Cls: Print : Print : Print : Print
  98.  
  99. End Sub
  100.  
  101. Sub UDPPort1_DataIn (Datagram As String, SourceAddress As String, SourcePort As Integer)
  102.  
  103. Me.ForeColor = &H80&
  104. Print "From: ", SourceAddress & ":" & SourcePort & " :: " & Datagram
  105.  
  106. End Sub
  107.  
  108.